home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis354.d64 / zauberland i (.txt) < prev   
Commodore BASIC  |  1995-07-31  |  16KB  |  479 lines
  1. 0 REM: SEI SO EHRLICH UND SCHAUE NICHT
  2. 1 REM: NACH. DAS ADVENTURE IST SOOOOOO
  3. 2 REM: EINFACH !!!             =======
  4. 3 REM""(null)
  5. 4 REM: SELBER SCHULD!
  6. 5 DIM RI$(6)
  7. 6 DIM R$(35),D(35,6)
  8. 7 DIM V$(11),OB$(45),RN$(45),OB(45)
  9. 10 POKE53280,6:POKE53281,6:PRINT"[147]";
  10. 20 V=53248
  11. 30 POKEV+21,1:POKEV+23,1:POKEV+29,1:POKE2040,13
  12. 40 FORN=0TO62:READQ:POKE832+N,Q:NEXT
  13. 50 POKEV,30:POKEV+1,50
  14. 60 PRINT""TAB(9)"PACY-FACE AND HIS ADVENTURES"
  15. 90 PRINTS$
  16. 100 DATA 34,0,0,146,170,0,75,244,0,44,24,0,16,4,0
  17. 110 DATA 224, 50, 0, 32, 122, 0, 64, 49, 0, 64, 0, 128, 64, 0, 64
  18. 120 DATA 64, 1, 192, 64, 63, 0, 39, 16, 0, 47, 8, 0, 28, 4, 0
  19. 130 DATA 60, 24, 0, 247, 240, 192, 100, 9, 64, 167, 6, 128, 4, 131, 0
  20. 140 DATA 3, 0, 0
  21. 150 :
  22. 160 TB$="   [169] [223]    [223] [162][162] [162]  [169] [223]    [223][146]"
  23. 170 TB$=TB$+" [169][146][169]      [146][162]  [146][162]   [146][162]     [223]   [146]"
  24. 180 TB$=TB$+"[169][146][169]        [162]  [162] [146][223][223]     [146][223][223]   [146]"
  25. 190 TB$=TB$+"     [146][223] [146][169]   [146][169]  [146][162][162]         [146] [223]   [146][169]"
  26. 200 PRINT""TB$
  27. 210 PRINT"  WRITTEN JANUAR 1985 BY PHILIPP KOEHN"
  28. 220 PRINT"  ------------------------------------"
  29. 230 :
  30. 240 AV=11:AO=43:AR=24:AM=4
  31. 250 FORX=1TOAO:READOB$(X),RN$(X),OB(X):NEXTX
  32. 260 FORX=1TOAR:READR$(X):FORY=1TO6:READD(X,Y):NEXTY,X
  33. 270 FORX=1TOAV:READV$(X):NEXTX
  34. 280 FORX=1TO6:READRI$(X):NEXTX
  35. 285 FORX=1TOAM:READM$(X):NEXTX
  36. 290 :
  37. 300 REM------------------------ OBJEKTE
  38. 301 DATA MEHRERE MAENNER,MAENNER,1
  39. 302 DATA EINE FLASCHE BIER,BIER,1
  40. 303 DATA VIELE HAEUSER,HAEUSER,2
  41. 304 DATA WENIGE MENSCHEN,MENSCHEN,2
  42. 305 DATA VIELE HAEUSER,HAEUSER,3
  43. 306 DATA EIN ALTER MANN,MANN,3
  44. 307 DATA PAROLE,PAROLE,0
  45. 308 DATA VIELE HAEUSER,HAEUSER,4
  46. 309 DATA EINEN BRUTALEN WAECHTER,WAECHTER,4
  47. 310 DATA EINZELNE TANNEN,TANNEN,5
  48. 311 DATA EIN SCHLOSS,SCHLOSS,6
  49. 312 DATA EIN PAAR BUESCHE,BUESCHE,6
  50. 313 DATA EINEN KLEINEN SPIEGEL,SPIEGEL,7
  51. 314 DATA EINEN KLEIDERSTAENDER,KLEIDERSTAENDER,7
  52. 315 DATA EIN ZUCKERGLASS,ZUCKERGLASS,8
  53. 316 DATA EIN TISCH,TISCH,8
  54. 317 DATA EINEN *RUBIN*,RUBIN,0
  55. 318 DATA EIN STUHL,STUHL,9
  56. 319 DATA EIN TISCH,TISCH,9
  57. 320 DATA EIN TISCH,TISCH,11
  58. 321 DATA BUECHER,BUECHER,10
  59. 322 DATA VIELE BAEUMCHEN,BAEUMCHEN,12
  60. 323 DATA VIELE FICHTEN,FICHTEN,13
  61. 324 DATA EINIGE BAEUME,BAEUME,14
  62. 325 DATA VIELE EICHEN,EICHEN,15
  63. 326 DATA EINE SENKE,SENKE,15
  64. 327 DATA EINEN *SMARAGDEN*,SMARAGD,0
  65. 328 DATA VEREINZELTE STRAEUCHER,STRAEUCHER,16
  66. 329 DATA WASSER,WASSER,17
  67. 330 DATA ALGEN IM SEE,ALGEN,17
  68. 331 DATA EINEN WEGWEISER,WEGWEISER,18
  69. 332 DATA DEN BERUECHTIGTEN TROLLENKOENIG,TROLLENKOENIG,19
  70. 333 DATA EINIGE TROLLE,TROLLE,19
  71. 334 DATA EINIGE ELFEN,ELFEN,20
  72. 335 DATA MEHRERE ELFENHOEHLEN,HOEHLEN,20
  73. 336 DATA DEN ELFENKOENIG,ELFENKOENIG,21
  74. 337 DATA EINEN WEISEN SPRUCH,SPRUCH,0
  75. 338 DATA EINEN *SAPHIR*,SAPHIR,0
  76. 339 DATA EIN PAAR KLEINE HUETTEN,HUETTEN,22
  77. 340 DATA EINEN PRUNKVOLLEN PALAST,PALAST,23
  78. 341 DATA VIELE *GRAPHITEN*,GRAPHITEN,23
  79. 342 DATA EINEN TRAURIGEN GULLIVER,GULLIVER,24
  80. 343 DATA EINEN *GRAPHIT*,GRAPHIT,0
  81. 400 REM------------------------ RAEUME
  82. 401 DATA"IN EINER SCHENKE.",4,2,0,0,0,0
  83. 402 DATA"AUF EINER STRASSE.",30,3,0,1,0,0
  84. 403 DATA"IN EINER SACKGASSE.",0,0,0,2,0,0
  85. 404 DATA"VOR DEM STADTTOR.",0,0,1,0,0,0
  86. 405 DATA"AUF EINEM WEG.",16,6,4,12,0,0
  87. 406 DATA"VOR EINEM SCHLOSS.",0,7,0,5,0,0
  88. 407 DATA"IM PORTAL DES SCHLOSSES.",32,9,10,6,0,0
  89. 408 DATA"IM SPEISERAUM DES SCHLOSSES.",0,0,9,32,0,0
  90. 409 DATA"IN DER KUECHE DES SCHLOSSES.",8,0,11,7,0,0
  91. 410 DATA"IN EINER BIBLOTHEK.",7,11,0,0,0,0
  92. 411 DATA"IN EINEM ARBEITSZIMMER.",9,0,0,10,0,0
  93. 412 DATA"AN EINEM WALDRAND.",15,5,33,13,34,0
  94. 413 DATA"IM WALD.",14,12,33,33,34,0
  95. 414 DATA"IN EINER LICHTUNG. IM NORDEN SE-HE ICH EIN HAUS.",35,15,13,33,34,0
  96. 415 DATA"IN EINEM LAUBWALD.",33,33,12,14,34,0
  97. 416 DATA"AUF EINEM WEG.",18,17,5,0,0,0
  98. 417 DATA"AN EINEM SEE.",0,0,0,16,0,0
  99. 418 DATA"AUF DEM WEG.",20,19,16,22,0,0
  100. 419 DATA"IM TROLLENREICH",36,36,36,36,0,0
  101. 420 DATA"IM ELFENREICH",21,0,18,0,0,0
  102. 421 DATA"BEIM ELFENKOENIG.",0,0,20,0,0,0
  103. 422 DATA"IN DER ZWERGENSTADT",23,18,0,24,0,0
  104. 423 DATA"IM ZWERGENPALAST",0,0,22,0,0,0
  105. 424 DATA"BEI GULLIVER.",0,22,0,0,0,0
  106. 500 REM------------------------ VERBEN
  107. 501 DATA NIMM,LEGE,FRAGE,SAGE,UNTERSUCHE,TRINKE,OEFFNE
  108. 502 DATA VERBEN,LISTE,SAVE,LOAD
  109. 600 REM--------------------- RICHTUNGEN
  110. 601 DATA NORDEN,OSTEN,SUEDEN,WESTEN
  111. 602 DATA OBEN,UNTEN
  112. 610 REM---------------------- ANTWORTEN
  113. 611 DATA"TUT MIR LEID, ABER SO STARK BIN ICH     NICHT."
  114. 612 DATA"ICH MAG DUMM SEIN, ABER ICH VERSTEHE    NICHT WAS DU MEINST."
  115. 613 DATA"WIE STELLST DU DIR DAS VOR?!"
  116. 614 DATA"AUCH HIER HAT DAS WALDSTERBEN SCHON     UM SICH GEGRIFFEN."
  117. 700 PRINTTAB(53)"DRUECKE TASTE"
  118. 710 GETA$:IFA$=""THEN710
  119. 720 POKEV+21,0:INPUT"[147]ANLEITUNG (J/N)";E$
  120. 730 IFE$="N"THEN1050
  121. 740 PRINT"[147]";TB$
  122. 750 S$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINTS$
  123. 760 PRINT"DU HAST IN EINER SCHENKE VIER MAENNER"
  124. 770 PRINT"BELAUSCHT, DIE VON EINEM SCHATZ SPRACHEN";
  125. 780 PRINT"DER IN DER UMGEBUNG VERSTECKT SEI."
  126. 790 PRINT"DEINE AUFGABE IST: FINDE DIESEN SCHATZ!"
  127. 800 PRINT"ABER KEINE ANGST ICH, PACY-FACE, HELFE"
  128. 805 PRINT"DIR BEI DIESER SCHWEREN AUFGABE."
  129. 810 PRINT"DER SCHATZ BESTEHT AUS VIER EDELSTEINEN.";
  130. 811 PRINT"AM ANFANG BEFINDEST DU DICH IN DIESER"
  131. 812 PRINT"SCHENKE (VOR EINEM GLASS BIER)."
  132. 813 PRINT"WEITERE ANWEISUNGEN (J/N)"
  133. 814 PRINTS$
  134. 815 GETA$:IFA$="N"THEN1050
  135. 816 IFA$<>"J"THEN815
  136. 820 PRINT"[147]";S$
  137. 821 PRINT"AUF DEM BILDSCHIRM STEHT JEDESMAL:"
  138. 822 PRINT"1.DER ORT. HIER WIRD IHNEN GESAGT WO"
  139. 823 PRINT"  DU DICH BEFINDEST."
  140. 824 PRINT"2.DIE BESONDERHEITEN. ICH, PACY-FACE"
  141. 825 PRINT"  MACHE DICH HIER DARAUF AUFMERKSAME WAS"
  142. 826 PRINT"  ICH IM BLICKFELD HABE. [ICH SEHE...]"
  143. 827 PRINT"  SEHE ICH 'NICHTS' STEHT HIER: ICH SE-"
  144. 828 PRINT"  HE NICHTS BESONDERES."
  145. 829 PRINT"3.DIE DURCHGANGE [ICH KANN NACH...]"
  146. 830 PRINT"  HIER SCHREIBE HIN ICH IN WELCHE HIM-"
  147. 831 PRINT"  MELSRICHTUNGEN (EVENTUELL AUCH OBEN"
  148. 832 PRINT"  UND UNTEN) ICH MICH BEWEGEN KANN."
  149. 833 PRINT"  BEWEGEN KANNST DU MICH DURCH DIE BE-"
  150. 834 PRINT"  FEHLE N(NORDEN), S(SUEDEN), O(OSTEN),"
  151. 835 PRINT"  W(WESTEN), OB(OBEN) UND U(UNTEN).":PRINTS$
  152. 836 GETA$:IFA$=""THEN836
  153. 840 PRINT"[147]";S$
  154. 841 PRINT"WENN DU WISSEN WILLST WELCHE VERBEN ICH"
  155. 842 PRINT"VERSTEHE KANNST DU HINTER DIE ANWEISUNG"
  156. 843 PRINT"'WAS SOLL ICH TUN?' DAS WORT VERBEN"
  157. 844 PRINT"SETZEN. DER BEFEHL 'LISTE' IST DAZU GUT"
  158. 845 PRINT"ALLE GEGENSTAENDE DIE DU BESITZT AUF"
  159. 846 PRINT"BILDSCHIRM AUFZULISTEN. ZU DEN 'SERVICE"
  160. 847 PRINT"-BEFEHLEN' GEHOEREN AUCH NOCH SAVE"
  161. 848 PRINT"(ZUM ABSPEICHERN DES SPIELSTANDES) UND"
  162. 849 PRINT"LOAD (ZUM LADEN DES ABGESPEICHERTEN"
  163. 850 PRINT"SPIELSTANDES)."
  164. 851 PRINT"DIE BEFEHLE 'SAGE', 'FRAGE', 'UNTERSU-"
  165. 852 PRINT"CHE', 'OEFFNE', 'TRINKE' UND 'LEGE'     DUERFTEN KLAR SEIN."
  166. 853 PRINT"ZU DEM BEFEHL 'NIMM' MUSS ICH NOCH SA-"
  167. 854 PRINT"GEN, DASS NICHT ALLE GEGENSTAENDE GE-"
  168. 855 PRINT"NOMMEN WERDEN KOENNEN, WEIL DAS OFT,"
  169. 856 PRINT"WIE ZUM BEISPIEL 'NIMM MAENNER', UN-"
  170. 857 PRINT"LOGISCH IST.":PRINTS$
  171. 858 GETA$:IFA$=""THEN858
  172. 860 PRINT"[147]";S$
  173. 861 PRINT"WICHTIG IST:"
  174. 862 PRINTTAB(44)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  175. 863 PRINTTAB(4)"ZU EINEM NORMALEN BEFEHL GEHOERT[146]"
  176. 864 PRINTTAB(7)"EIN VERB UND EIN SUBSTANTIV[146]"
  177. 865 PRINTTAB(80)S$
  178. 900 GETA$:IFA$=""THEN900
  179. 1000 :
  180. 1050 S=1:ZZ=0
  181. 1080 IFS>=30THEN3000
  182. 1085 PRINT"[147]ICH BIN ";R$(S)
  183. 1090 PRINT"ICH SEHE ";
  184. 1100 G=0:FORI=1TOAO
  185. 1110 IFOB(I)<>STHEN1150
  186. 1115 G=1
  187. 1120 IFPOS(0)+LEN(OB$(I))+2<=39THENPRINTOB$(I)", ";:GOTO1150
  188. 1130 IFPOS(0)+LEN(OB$(I))+2>39THENPRINT:GOTO1120
  189. 1140 PRINTOB$(I)", ";
  190. 1150 NEXTI:IFG=0THENPRINT"NICHTS BESONDERES. ";
  191. 1160 PRINT"[157][157].":PRINT"ICH KANN NACH ";
  192. 1170 FORI=1TO6
  193. 1180 IFD(S,I)=0THEN1230
  194. 1190 IFPOS(0)=14THENPRINTRI$(I);:GOTO1230
  195. 1200 IFPOS(0)+LEN(RI$(I))<37THENPRINT", "RI$(I);:GOTO1230
  196. 1210 IFPOS(0)+LEN(RI$(I))>=37THENPRINT",":PRINTRI$(I);:GOTO1230
  197. 1220 IFPOS(0)<16ANDPOS(0)>2THENPRINT", "RI$(I);:GOT